(esc-map): Bind C-M-% to query-replace-regexp.

diff --git a/lisp/replace.el b/lisp/replace.el
index 07d5892e458ff635af3b1ae4036503c28c74b1dc..e82eb3bdafbb054c2e1a12f8275303456ca664ab 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -115,6 +115,7 @@ and `\\=\\N' (where N is a digit) stands for
  whatever what matched the Nth `\\(...\\)' in REGEXP."
   (interactive (query-replace-read-args "Query replace regexp" t))
   (perform-replace regexp to-string t t arg))
+(define-key esc-map [?\C-%] 'query-replace-regexp)
 
 (defun map-query-replace-regexp (regexp to-strings &optional arg)
   "Replace some matches for REGEXP with various strings, in rotation.